home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / log / log3_52a / dxccpxad.prg < prev    next >
Text File  |  1990-05-04  |  1KB  |  52 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: DXCCPXAD.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 12/11/87      1:45
  9. *:
  10. *:      Called by: DXCC.PRG                      
  11. *:
  12. *:           Uses: &DXCC          
  13. *:               : ZCZJOE.DBF     
  14. *:
  15. *:        Indexes: &DXCC
  16. *:
  17. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  18. *:*********************************************************************
  19. * DXCCPXAD USE WHEN ADDING TO OR SORTING A DXCC FILE VERSION 860423
  20. * COPYRIGHT (c) Joe Kasser G3ZCZ 1986
  21. CLEAR
  22. USE &dxcc
  23. STORE ' ' TO npx
  24. DO WHILE npx <> '*'
  25.    ACCEPT 'WHAT PREFIX (* to TERMINATE) ?  ' TO npx
  26.    IF npx = '*'
  27.       *DO NOTHING
  28.    ELSE
  29.       ACCEPT 'WHAT IS THE ALTERNATIVE PREFIX (if any) ? ' TO npx1
  30.       ACCEPT 'WHAT IS THE NAME OF THE COUNTRY ? ' TO ncountry
  31.       APPEND BLANK
  32.       REPLACE px WITH npx
  33.       REPLACE px1 WITH npx1
  34.       REPLACE Country WITH ncountry
  35.    ENDIF
  36. ENDDO
  37. RELEASE npx,npx1,ncountry
  38. ? 'SORTING PREFIXES NOW, PLEASE STANDBY'
  39. SET TALK ON
  40. INDEX ON px TO &dxcc
  41. COPY TO zczjoe
  42. SET TALK OFF
  43. USE
  44. STORE TRIM(dxcc)+'.NDX'  TO fred
  45. DELETE FILE &fred
  46. STORE TRIM(dxcc)+'.DBF'  TO fred
  47. DELETE FILE &fred
  48. RENAME zczjoe.DBF TO &fred
  49. RELEASE fred
  50. RETURN
  51. *: EOF: DXCCPXAD.PRG
  52.